home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 34.zip / BS1 part 34 / FredFish PD 318.adf / WaveMaker / wavemaker.c < prev    next >
C/C++ Source or Header  |  1990-02-14  |  75KB  |  2,157 lines
  1. /**********************************************************************/
  2. /*                                                                    */
  3. /*  WaveMaker - a program to allow a user to construct waveforms      */
  4. /*              by superposition of harmonic sine waves.              */
  5. /*                                                                    */
  6. /*                                                                    */
  7. /*  This program is intended for beginning physics students to help   */
  8. /*  them get a better intuitive feel for constructing a complex wave  */
  9. /*  form from a sum of harmonics.  Musicians may also find it         */
  10. /*  useful.                                                           */
  11. /*                                                                    */
  12. /*  For program operation see WaveMaker.doc.                          */
  13. /*                                                                    */
  14. /*  This program was written in Lattice C, version 5.04.02.  It is    */
  15. /*  compiled with the command:  lc -O -j30.                           */
  16. /*                                                                    */
  17. /*  It is linked with the following "with" file:                      */
  18. /*        from lib:c.o                                                */
  19. /*        wavemaker.o                                                 */
  20. /*        lib lib:lcm.lib lib:lc.lib lib:amiga.lib                    */
  21. /*        SMALLCODE                                                   */
  22. /*        SMALLDATA                                                   */
  23. /*                                                                    */
  24. /*  WaveMaker is freely distributable as long as it is not sold for   */
  25. /*  profit.  It is permitted (encouraged) to include it on software   */
  26. /*  collections sold for a nominal sum, such as club disks and        */
  27. /*  Fish disks.  Copyright is retained by the author.                 */
  28. /*                                                                    */
  29. /*  Thanks are due to those people who posted example programs in     */
  30. /*  the BIX listings area.  One good example is worth several chapters*/
  31. /*  of explanation.  Of particular use were gad.c and menu.c. both by */
  32. /*  John Draper, and scales.c by Steven A. Bennett.                   */
  33. /*                                                                    */
  34. /*  Comments, bugs, complaints, and praise may be sent to me at       */
  35. /*                  Thomas Meyer                                      */
  36. /*                  12 Physics, Iowa State University                 */
  37. /*                  Ames, IA 50010                                    */
  38. /*                  BIX: TMEYER,  BITNET:MEYER@ALISUVAX               */
  39. /*                                                                    */
  40. /**********************************************************************/
  41. /*                                                                    */
  42. /* Update history:                                                    */
  43. /*    1/24/90    Version 1.1                                          */
  44. /*                 Easy game added                                    */
  45. /*                 Fixed crashes from rawkey>64                       */
  46. /*                 Closed down in correct order                       */
  47. /*                 Game doesn't interfere with amps[]                 */
  48. /*                 Random seed from timer                             */
  49. /*    1/21/90    Version 1.0 released on AAAUG club disk              */
  50. /**********************************************************************/
  51.  
  52. #include <math.h>
  53. #include <stdio.h>
  54. #include <exec/types.h>
  55. #include <exec/nodes.h>
  56. #include <exec/lists.h>
  57. #include <exec/ports.h>
  58. #include <exec/devices.h>
  59. #include <exec/memory.h>
  60. #include <hardware/custom.h>
  61. #include <hardware/dmabits.h>
  62. #include <libraries/dos.h>
  63. #include <devices/audio.h>
  64. #include <devices/inputevent.h>
  65. #include <intuition/intuition.h>
  66. #include <graphics/gfxbase.h>
  67. #include <graphics/gfx.h>
  68. #include <graphics/clip.h>
  69. #include <graphics/view.h>
  70. #include <graphics/rastport.h>
  71. #include <graphics/layers.h>
  72.  
  73. extern struct MsgPort *CreatePort();
  74. extern VOID ModifyProp();
  75. extern VOID PrintIText();
  76.  
  77. struct IntuitionBase *IntuitionBase;
  78. struct GfxBase *GfxBase;
  79. struct Window *Window;
  80. struct Screen *Screen;
  81. struct ViewPort *ViewPort;
  82. struct RastPort *rport;
  83. struct IntuiMessage *mesg;
  84. struct IOAudio *ioa,*audio,*finish,*audchan[4];
  85.  
  86. /****************************************/
  87. /*  Build the Intuition Gadgets         */
  88. /****************************************/
  89.  
  90. /*      Define Logicals for GadgetIDs   */
  91.  
  92. #define HARMON0 0
  93. #define HARMON1 1
  94. #define HARMON2 2
  95. #define HARMON3 3
  96. #define HARMON4 4
  97. #define HARMON5 5
  98. #define HARMON6 6
  99. #define HARMON7 7
  100. #define INTEG   0
  101. #define UPARROW 8
  102. #define DNARROW 16
  103. #define PROPOR  24
  104. #define PLUSMINUS 32
  105. #define YES     1
  106. #define NO      0
  107. #define NBR_IOA_STRUCTS 6
  108.  
  109. /* define logicals for ErrExit */
  110.  
  111. #define SUCCESS         0
  112. #define INTUITION_FAIL  1
  113. #define GRAPHICS_FAIL   2
  114. #define PORTPN_FAIL     3
  115. #define PORTP0_FAIL     4
  116. #define AUDIOALLOC_FAIL 5
  117. #define AUDIO_FAIL      6
  118. #define USERSOUND_FAIL  7
  119. #define REFSOUND_FAIL   8
  120. #define SCREEN_FAIL     9
  121. #define WINDOW_FAIL    10
  122.  
  123. /*  Miscellaneous logicals */
  124.  
  125. #define INTUITION_REV 0
  126. #define GRAPHICS_REV 0
  127.  
  128. #define TWOPI 6.283185
  129.  
  130. /*************************************/
  131. /*  Global variables and structures  */
  132. /*************************************/
  133.  
  134. SHORT sinewave[8][513];
  135. LONG amps[8],refamps[8];
  136. LONG maxuser=1,maxref=1;
  137. LONG maxamp=16066;
  138. BYTE waveform[514],refform[514];
  139. BYTE *usersound,*refsound;
  140. BYTE sunit=0x0F;
  141. SHORT audiochan[128] ={-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
  142.                    -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
  143.                    -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
  144.                    -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
  145.                    -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
  146.                    -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
  147.                    -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
  148.                    -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1};
  149. SHORT waiting[5]={NO, NO, NO, NO, NO};
  150. SHORT gameon=NO;
  151. VOID ErrExit();
  152.  
  153. /*  Structures for drawing waveforms    */
  154.  
  155. USHORT userwave[513][2],refwave[513][2];
  156.  
  157. struct Border UWave_brd1 =
  158. {
  159.     64,13,                        /* LeftEdge, TopEdge              */
  160.     4,0,JAM1,                     /* FrontPen, BackPen, DrawMode    */
  161.     127,(APTR)&userwave[0][0],    /* Count, *XY                     */
  162.     NULL                          /* *NextBorder                    */
  163. };
  164. struct Border UWave_brd2 =
  165. {
  166.     64,13,                        /* LeftEdge, TopEdge              */
  167.     4,0,JAM1,                     /* FrontPen, BackPen, DrawMode    */
  168.     127,(APTR)&userwave[126][0],  /* Count, *XY                     */
  169.     (APTR)&UWave_brd1             /* *NextBorder                    */
  170. };
  171. struct Border UWave_brd3 =
  172. {
  173.     64,13,                        /* LeftEdge, TopEdge              */
  174.     4,0,JAM1,                     /* FrontPen, BackPen, DrawMode    */
  175.     127,(APTR)&userwave[252][0],  /* Count, *XY                     */
  176.     (APTR)&UWave_brd2             /* *NextBorder                    */
  177. };
  178. struct Border UWave_brd4 =
  179. { 
  180.     64,13,                        /* LeftEdge, TopEdge              */
  181.     4,0,JAM1,                     /* FrontPen, BackPen, DrawMode    */
  182.     127,(APTR)&userwave[378][0],  /* Count, *XY                     */
  183.     (APTR)&UWave_brd3             /* *NextBorder                    */
  184. };
  185. struct Border UWave_brd5 =
  186. {
  187.     64,13,                        /* LeftEdge, TopEdge              */
  188.     4,0,JAM1,                     /* FrontPen, BackPen, DrawMode    */
  189.     9,(APTR)&userwave[504][0],    /* Count, *XY                     */
  190.     (APTR)&UWave_brd4             /* *NextBorder                    */
  191. };
  192. struct Border RWave_brd1 =
  193. {
  194.     64,13,                        /* LeftEdge, TopEdge              */
  195.     6,0,JAM1,                     /* FrontPen, BackPen, DrawMode    */
  196.     127,(APTR)&refwave[0][0],     /* Count, *XY                     */
  197.     NULL                          /* *NextBorder                    */
  198. };
  199. struct Border RWave_brd2 =
  200. {
  201.     64,13,                        /* LeftEdge, TopEdge              */
  202.     6,0,JAM1,                     /* FrontPen, BackPen, DrawMode    */
  203.     127,(APTR)&refwave[126][0],   /* Count, *XY                     */
  204.     (APTR)&RWave_brd1             /* *NextBorder                    */
  205. };
  206. struct Border RWave_brd3 =
  207. {
  208.     64,13,                        /* LeftEdge, TopEdge              */
  209.     6,0,JAM1,                     /* FrontPen, BackPen, DrawMode    */
  210.     127,(APTR)&refwave[252][0],   /* Count, *XY                     */
  211.     (APTR)&RWave_brd2             /* *NextBorder                    */
  212. };
  213. struct Border RWave_brd4 =
  214. { 
  215.     64,13,                        /* LeftEdge, TopEdge              */
  216.     6,0,JAM1,                     /* FrontPen, BackPen, DrawMode    */
  217.     127,(APTR)&refwave[378][0],   /* Count, *XY                     */
  218.     (APTR)&RWave_brd3             /* *NextBorder                    */
  219. };
  220. struct Border RWave_brd5 =
  221. {
  222.     64,13,                        /* LeftEdge, TopEdge              */
  223.     6,0,JAM1,                     /* FrontPen, BackPen, DrawMode    */
  224.     9,(APTR)&refwave[504][0],     /* Count, *XY                     */
  225.     (APTR)&RWave_brd4             /* *NextBorder                    */
  226. };
  227.  
  228. /*      Declare the character buffer for IntuitText structures 
  229.         (to be filled later).                                         */
  230.     
  231. char textbuf[6]="    0";
  232.  
  233. struct IntuiText textamp =
  234. {
  235.     1,0,JAM2,           /* FrontPen, BackPen, DrawMode            */
  236.     0,0,                /* LeftEdge, TopEdge (use offsets to set) */
  237.     NULL,               /* *ITextFont   (use default)             */
  238.     (APTR)&textbuf,     /* *IText (fill later)                    */
  239.     NULL                /* *NextText                              */
  240. };
  241.  
  242. /*   Border structures for the amplitude display box                  */
  243.  
  244. USHORT BoxPairsb[9][2]=
  245. {
  246.     2,11, 53,11, 53,2, 54,2, 54,11,
  247.     55,11, 55,2, 56,2, 56,11       /* Brown shadow around int */
  248. };
  249.  
  250. struct Border brdi1b =
  251. {
  252.     -2,-2,2,0,          /* LeftEdge, TopEdge, FrontPen, BackPen   */
  253.     JAM1, 9,            /* DrawMode, Count                        */
  254.     (APTR)&BoxPairsb,   /* *XY                                    */
  255.     NULL                /* *NextBorder                            */
  256. };
  257.  
  258. USHORT BoxPairs[5][2]=
  259. {
  260.     0, 0,  52,0,  52,10,   0,10,  0,0  /* Coords of box  */
  261. };
  262.  
  263. struct Border brdi1 =
  264. {
  265.     -2,-2,1,0,          /* LeftEdge, TopEdge, FrontPen, BackPen   */
  266.     JAM1, 5,            /* DrawMode, Count                        */
  267.     (APTR)&BoxPairs,    /* *XY                                    */
  268.     &brdi1b             /* *NextBorder                            */
  269. };
  270.  
  271. /*************************************/
  272. /*     First amplitude gadgets       */
  273. /*************************************/
  274.  
  275. /*  Proportional gadget  */
  276.  
  277. struct PropInfo prop_info1 =
  278. {
  279.     AUTOKNOB|FREEVERT,  /* Flags                                  */
  280.     0xFFFF,0xFFFF,      /* HorizPot, VertPot                      */
  281.     0x0800,0x0800,      /* HorizBody, VertBody                    */
  282.     16,64,              /* CWidth,CHeight                         */
  283.     0x0800,0x0800,      /* HPotRes, VPotRes                       */
  284.     0,0                 /* LeftBorder, TopBorder                  */
  285. };
  286.  
  287. struct IntuiText protext1 =
  288. {
  289.     5, 2, JAM2,         /* FrontPen, BackPen, DrawMode            */
  290.     -20, 3,             /* LeftEdge, TopEdge                      */
  291.     NULL,"1:",          /* *ITextFont, *Itext                     */
  292.     NULL                /* *NextText                              */
  293. };
  294.  
  295. struct Image empty1,empty2,empty3,empty4,empty5,empty6,empty7,empty8;
  296.  
  297. struct Gadget propor1 =
  298. {
  299.     NULL,65,113,               /* *NextGadget, LeftEdge, TopEdge     */
  300.     14,69,GADGHCOMP|AUTOKNOB,  /* Width, Height, Flags               */
  301.     RELVERIFY|GADGIMMEDIATE,   /* Activation                         */
  302.     PROPGADGET,(APTR)&empty1,  /* GadgetType, GadgetRender           */
  303.     NULL,                      /* SelectRender                       */
  304.     (APTR)&protext1,0,         /* *GadgetText, MutualExclude         */
  305.     (APTR)&prop_info1,         /* SpecialInfo                        */
  306.     HARMON0|PROPOR,            /* GadgetID                           */
  307.     NULL                       /* UserData                           */
  308. };
  309.  
  310. /*   Up arrow gadget     */
  311.  
  312. USHORT updn_shadata[] = {2,7, 17,7, 17,1, 18,1, 18,7, 19,7, 19,1};
  313. struct Border updn_shadow =
  314. {
  315.     -2,-1,2,0,              /* LeftEdge, TopEdge, FrontPen, BackPen */
  316.     JAM1,7,                 /* DrawMode, Count                      */
  317.     (APTR)&updn_shadata,    /* *XY                                  */
  318.     NULL                    /* *NextBorder                          */
  319. };
  320.  
  321. USHORT updn_data[] = {0,0, 0,6, 16,6, 16,0, 0,0};
  322. struct Border updn_border =
  323. {
  324.     -2,-1,1,0,              /* LeftEdge, TopEdge, FrontPen, BackPen */
  325.     JAM1,5,                 /* DrawMode, Count                      */
  326.     (APTR)&updn_data,       /* *XY                                  */
  327.     &updn_shadow            /* *NextBorder                          */
  328. };
  329.  
  330. USHORT uparr_data[] = {8,2, 3,4, 13,4, 8,2};
  331. struct Border up_arr =
  332. {
  333.     -2,-1,1,0,              /* LeftEdge, TopEdge, FrontPen, BackPen */
  334.     JAM1,4,                 /* DrawMode, Count                      */
  335.     (APTR)&uparr_data,      /* *XY                                  */
  336.     &updn_border            /* *NextBorder                          */
  337. };
  338.  
  339. struct Gadget up1 =
  340. {
  341.     &propor1,44,143,           /* *NextGadget, LeftEdge, TopEdge     */
  342.     16,6,GADGHCOMP,            /* Width, Height, Flags               */
  343.     GADGIMMEDIATE,             /* Activation                         */
  344.     BOOLGADGET,(APTR)&up_arr, /* GadgetType, GadgetRender           */
  345.     NULL,                      /* SelectRender                       */
  346.     NULL,0,                    /* *GadgetText, MutualExclude         */
  347.     NULL,                      /* SpecialInfo                        */
  348.     HARMON0|UPARROW,           /* GadgetID                           */
  349.     NULL                       /* UserData                           */
  350. };
  351.  
  352. /*   down arrow gadget  */
  353.  
  354. USHORT dnarr_data[] = {3,2, 13,2, 8,4, 3,2};
  355. struct Border dn_arr =
  356. {
  357.     -2,-1,1,0,              /* LeftEdge, TopEdge, FrontPen, BackPen */
  358.     JAM1,4,                 /* DrawMode, Count                      */
  359.     (APTR)&dnarr_data,      /* *XY                                  */
  360.     &updn_border            /* *NextBorder                          */
  361. };
  362.  
  363. struct Gadget dn1 =
  364. {
  365.     &up1,44,152,               /* *NextGadget, LeftEdge, TopEdge     */
  366.     16,6,GADGHCOMP,            /* Width, Height, Flags               */
  367.     GADGIMMEDIATE,             /* Activation                         */
  368.     BOOLGADGET,(APTR)&dn_arr,  /* GadgetType, GadgetRender           */
  369.     NULL,                      /* SelectRender                       */
  370.     NULL,0,                    /* *GadgetText, MutualExclude         */
  371.     NULL,                      /* SpecialInfo                        */
  372.     HARMON0|DNARROW,           /* GadgetID                           */
  373.     NULL                       /* UserData                           */
  374. };
  375.  
  376. /*  Change sign gadget  */
  377.  
  378.                 /* tie shadow for proportional gadget here since
  379.         I can't get border structures working for prop gadgets */
  380. USHORT pshad_data[] = {24,17, 38,17, 38,-51, 39,-51, 39,17, 40,17, 40,-51};
  381.  
  382. struct Border propshad =
  383. {
  384.     -2,-2,2,0,          /* LeftEdge, TopEdge, FrontPen, BackPen   */
  385.     JAM1, 7,            /* DrawMode, Count                        */
  386.     (APTR)&pshad_data,  /* *XY                                    */
  387.     NULL                /* *NextBorder                            */
  388. };
  389.  
  390. USHORT plus1[] = {5,3, 9,3};
  391. USHORT plus2[] = {7,2, 7,4};
  392. USHORT minus[] = {5,6, 9,6};
  393. USHORT plmi_data[] = {0,0, 0,8, 15,8, 15,0, 0,0};
  394. USHORT plmi_datas[]= {2,9, 16,9, 16,1, 17,1, 17,9, 18,9, 18,1};
  395.  
  396. struct Border plmi1 =
  397. {
  398.     -2,-1,1,0,            /* LeftEdge, TopEdge, Frontpen, BackPen */
  399.     JAM1,2,               /* DrawMode, Count                      */
  400.     (APTR)&plus1,         /* *XY                                  */
  401.     &propshad             /* *NextBorder                     */
  402. };
  403.  
  404. struct Border plmi2 =
  405. {
  406.     -2,-1,1,0,              /* LeftEdge, TopEdge, Frontpen, BackPen */
  407.     JAM1,2,                 /* DrawMode, Count                      */
  408.     (APTR)&plus2,&plmi1     /* *XY, *NextBorder                     */
  409. };
  410.  
  411. struct Border plmi3 =
  412. {
  413.     -2,-1,1,0,              /* LeftEdge, TopEdge, Frontpen, BackPen */
  414.     JAM1,2,                 /* DrawMode, Count                      */
  415.     (APTR)&minus,&plmi2     /* *XY, *NextBorder                     */
  416. };
  417.  
  418. struct Border plmi4 =
  419. {
  420.     -2,-1,1,0,              /* LeftEdge, TopEdge, Frontpen, BackPen */
  421.     JAM1,5,                 /* DrawMode, Count                      */
  422.     (APTR)&plmi_data,&plmi3 /* *XY, *NextBorder                     */
  423. };
  424.  
  425. struct Border plmi5 =
  426. {
  427.     -2,-1,2,0,               /* LeftEdge, TopEdge, Frontpen, BackPen */
  428.     JAM1,7,                  /* DrawMode, Count                      */
  429.     (APTR)&plmi_datas,&plmi4 /* *XY, *NextBorder                     */
  430. };
  431.  
  432. struct Gadget plusminus1 =
  433. {
  434.     &dn1,44,167,               /* *NextGadget, LeftEdge, TopEdge     */
  435.     15,8,GADGHCOMP,            /* Width, Height, Flags               */
  436.     GADGIMMEDIATE,             /* Activation                         */
  437.     BOOLGADGET,(APTR)&plmi5,   /* GadgetType, GadgetRender           */
  438.     NULL,                      /* SelectRender                       */
  439.     NULL,0,                    /* *GadgetText, MutualExclude         */
  440.     NULL,                      /* SpecialInfo                        */
  441.     HARMON0|PLUSMINUS,         /* GadgetID                           */
  442.     NULL                       /* UserData                           */
  443. };
  444.  
  445.  
  446. /*************************************/
  447. /*     Second amplitude gadgets       */
  448. /*************************************/
  449.  
  450. /*  Proportional gadget  */
  451.  
  452. struct PropInfo prop_info2 =
  453. {
  454.     AUTOKNOB|FREEVERT,  /* Flags                                  */
  455.     0xFFFF,0xFFFF,      /* HorizPot, VertPot                      */
  456.     0x0800,0x0800,      /* HorizBody, VertBody                    */
  457.     16,64,              /* CWidth,CHeight                         */
  458.     0x0800,0x0800,      /* HPotRes, VPotRes                       */
  459.     0,0                 /* LeftBorder, TopBorder                  */
  460. };
  461.  
  462. struct IntuiText protext2 =
  463. {
  464.     5, 2, JAM2,         /* FrontPen, BackPen, DrawMode            */
  465.     -20, 3,             /* LeftEdge, TopEdge                      */
  466.     NULL,"2:",          /* *ITextFont, *Itext                     */
  467.     NULL                /* *NextText                              */
  468. };
  469.  
  470. struct Gadget propor2 =
  471. {
  472.     &plusminus1,139,113,       /* *NextGadget, LeftEdge, TopEdge     */
  473.     14,69,GADGHCOMP|AUTOKNOB,  /* Width, Height, Flags               */
  474.     RELVERIFY|GADGIMMEDIATE,   /* Activation                         */
  475.     PROPGADGET,(APTR)&empty2,  /* GadgetType, GadgetRender           */
  476.     NULL,                      /* SelectRender                       */
  477.     (APTR)&protext2,0,         /* *GadgetText, MutualExclude         */
  478.     (APTR)&prop_info2,         /* SpecialInfo                        */
  479.     HARMON1|PROPOR,            /* GadgetID                           */
  480.     NULL                       /* UserData                           */
  481. };
  482.  
  483. /*   Up arrow gadget     */
  484.  
  485. struct Gadget up2 =
  486. {
  487.     &propor2,118,143,          /* *NextGadget, LeftEdge, TopEdge     */
  488.     16,6,GADGHCOMP,            /* Width, Height, Flags               */
  489.     GADGIMMEDIATE,             /* Activation                         */
  490.     BOOLGADGET,(APTR)&up_arr, /* GadgetType, GadgetRender           */
  491.     NULL,                      /* SelectRender                       */
  492.     NULL,0,                    /* *GadgetText, MutualExclude         */
  493.     NULL,                      /* SpecialInfo                        */
  494.     HARMON1|UPARROW,           /* GadgetID                           */
  495.     NULL                       /* UserData                           */
  496. };
  497.  
  498. /*   down arrow gadget  */
  499.  
  500. struct Gadget dn2 =
  501. {
  502.     &up2,118,152,               /* *NextGadget, LeftEdge, TopEdge     */
  503.     16,6,GADGHCOMP,            /* Width, Height, Flags               */
  504.     GADGIMMEDIATE,             /* Activation                         */
  505.     BOOLGADGET,(APTR)&dn_arr,  /* GadgetType, GadgetRender           */
  506.     NULL,                      /* SelectRender                       */
  507.     NULL,0,                    /* *GadgetText, MutualExclude         */
  508.     NULL,                      /* SpecialInfo                        */
  509.     HARMON1|DNARROW,           /* GadgetID                           */
  510.     NULL                       /* UserData                           */
  511. };
  512.  
  513. /*  Change sign gadget  */
  514.  
  515. struct Gadget plusminus2 =
  516. {
  517.     &dn2,118,167,              /* *NextGadget, LeftEdge, TopEdge     */
  518.     15,8,GADGHCOMP,            /* Width, Height, Flags               */
  519.     GADGIMMEDIATE,             /* Activation                         */
  520.     BOOLGADGET,(APTR)&plmi5,   /* GadgetType, GadgetRender           */
  521.     NULL,                      /* SelectRender                       */
  522.     NULL,0,                    /* *GadgetText, MutualExclude         */
  523.     NULL,                      /* SpecialInfo                        */
  524.     HARMON1|PLUSMINUS,         /* GadgetID                           */
  525.     NULL                       /* UserData                           */
  526. };
  527.  
  528. /*************************************/
  529. /*     Third amplitude gadgets       */
  530. /*************************************/
  531.  
  532. /*  Proportional gadget  */
  533.  
  534. struct PropInfo prop_info3 =
  535. {
  536.     AUTOKNOB|FREEVERT,  /* Flags                                  */
  537.     0xFFFF,0xFFFF,      /* HorizPot, VertPot                      */
  538.     0x0800,0x0800,      /* HorizBody, VertBody                    */
  539.     16,64,              /* CWidth,CHeight                         */
  540.     0x0800,0x0800,      /* HPotRes, VPotRes                       */
  541.     0,0                 /* LeftBorder, TopBorder                  */
  542. };
  543.  
  544. struct IntuiText protext3 =
  545. {
  546.     5, 2, JAM2,         /* FrontPen, BackPen, DrawMode            */
  547.     -20, 3,             /* LeftEdge, TopEdge                      */
  548.     NULL,"3:",          /* *ITextFont, *Itext                     */
  549.     NULL                /* *NextText                              */
  550. };
  551.  
  552. struct Gadget propor3 =
  553. {
  554.     &plusminus2,213,113,       /* *NextGadget, LeftEdge, TopEdge     */
  555.     14,69,GADGHCOMP|AUTOKNOB,  /* Width, Height, Flags               */
  556.     RELVERIFY|GADGIMMEDIATE,   /* Activation                         */
  557.     PROPGADGET,(APTR)&empty3,  /* GadgetType, GadgetRender           */
  558.     NULL,                      /* SelectRender                       */
  559.     (APTR)&protext3,0,         /* *GadgetText, MutualExclude         */
  560.     (APTR)&prop_info3,         /* SpecialInfo                        */
  561.     HARMON2|PROPOR,            /* GadgetID                           */
  562.     NULL                       /* UserData                           */
  563. };
  564.  
  565. /*   Up arrow gadget     */
  566.  
  567. struct Gadget up3 =
  568. {
  569.     &propor3,192,143,          /* *NextGadget, LeftEdge, TopEdge     */
  570.     16,6,GADGHCOMP,            /* Width, Height, Flags               */
  571.     GADGIMMEDIATE,             /* Activation                         */
  572.     BOOLGADGET,(APTR)&up_arr, /* GadgetType, GadgetRender           */
  573.     NULL,                      /* SelectRender                       */
  574.     NULL,0,                    /* *GadgetText, MutualExclude         */
  575.     NULL,                      /* SpecialInfo                        */
  576.     HARMON2|UPARROW,           /* GadgetID                           */
  577.     NULL                       /* UserData                           */
  578. };
  579.  
  580. /*   down arrow gadget  */
  581.  
  582. struct Gadget dn3 =
  583. {
  584.     &up3,192,152,               /* *NextGadget, LeftEdge, TopEdge     */
  585.     16,6,GADGHCOMP,            /* Width, Height, Flags               */
  586.     GADGIMMEDIATE,             /* Activation                         */
  587.     BOOLGADGET,(APTR)&dn_arr,  /* GadgetType, GadgetRender           */
  588.     NULL,                      /* SelectRender                       */
  589.     NULL,0,                    /* *GadgetText, MutualExclude         */
  590.     NULL,                      /* SpecialInfo                        */
  591.     HARMON2|DNARROW,           /* GadgetID                           */
  592.     NULL                       /* UserData                           */
  593. };
  594.  
  595. /*  Change sign gadget  */
  596.  
  597. struct Gadget plusminus3 =
  598. {
  599.     &dn3,192,167,              /* *NextGadget, LeftEdge, TopEdge     */
  600.     15,8,GADGHCOMP,            /* Width, Height, Flags               */
  601.     GADGIMMEDIATE,             /* Activation                         */
  602.     BOOLGADGET,(APTR)&plmi5,   /* GadgetType, GadgetRender           */
  603.     NULL,                      /* SelectRender                       */
  604.     NULL,0,                    /* *GadgetText, MutualExclude         */
  605.     NULL,                      /* SpecialInfo                        */
  606.     HARMON2|PLUSMINUS,         /* GadgetID                           */
  607.     NULL                       /* UserData                           */
  608. };
  609.  
  610. /*************************************/
  611. /*     Fourth amplitude gadgets      */
  612. /*************************************/
  613.  
  614. /*  Proportional gadget  */
  615.  
  616. struct PropInfo prop_info4 =
  617. {
  618.     AUTOKNOB|FREEVERT,  /* Flags                                  */
  619.     0xFFFF,0xFFFF,      /* HorizPot, VertPot                      */
  620.     0x0800,0x0800,      /* HorizBody, VertBody                    */
  621.     16,64,              /* CWidth,CHeight                         */
  622.     0x0800,0x0800,      /* HPotRes, VPotRes                       */
  623.     0,0                 /* LeftBorder, TopBorder                  */
  624. };
  625.  
  626. struct IntuiText protext4 =
  627. {
  628.     5, 2, JAM2,         /* FrontPen, BackPen, DrawMode            */
  629.     -20, 3,             /* LeftEdge, TopEdge                      */
  630.     NULL,"4:",          /* *ITextFont, *Itext                     */
  631.     NULL                /* *NextText                              */
  632. };
  633.  
  634. struct Gadget propor4 =
  635. {
  636.     &plusminus3,287,113,       /* *NextGadget, LeftEdge, TopEdge     */
  637.     14,69,GADGHCOMP|AUTOKNOB,  /* Width, Height, Flags               */
  638.     RELVERIFY|GADGIMMEDIATE,   /* Activation                         */
  639.     PROPGADGET,(APTR)&empty4,  /* GadgetType, GadgetRender           */
  640.     NULL,                      /* SelectRender                       */
  641.     (APTR)&protext4,0,         /* *GadgetText, MutualExclude         */
  642.     (APTR)&prop_info4,         /* SpecialInfo                        */
  643.     HARMON3|PROPOR,            /* GadgetID                           */
  644.     NULL                       /* UserData                           */
  645. };
  646.  
  647. /*   Up arrow gadget     */
  648.  
  649. struct Gadget up4 =
  650. {
  651.     &propor4,266,143,          /* *NextGadget, LeftEdge, TopEdge     */
  652.     16,6,GADGHCOMP,            /* Width, Height, Flags               */
  653.     GADGIMMEDIATE,             /* Activation                         */
  654.     BOOLGADGET,(APTR)&up_arr, /* GadgetType, GadgetRender           */
  655.     NULL,                      /* SelectRender                       */
  656.     NULL,0,                    /* *GadgetText, MutualExclude         */
  657.     NULL,                      /* SpecialInfo                        */
  658.     HARMON3|UPARROW,           /* GadgetID                           */
  659.     NULL                       /* UserData                           */
  660. };
  661.  
  662. /*   down arrow gadget  */
  663.  
  664. struct Gadget dn4 =
  665. {
  666.     &up4,266,152,              /* *NextGadget, LeftEdge, TopEdge     */
  667.     16,6,GADGHCOMP,            /* Width, Height, Flags               */
  668.     GADGIMMEDIATE,             /* Activation                         */
  669.     BOOLGADGET,(APTR)&dn_arr,  /* GadgetType, GadgetRender           */
  670.     NULL,                      /* SelectRender                       */
  671.     NULL,0,                    /* *GadgetText, MutualExclude         */
  672.     NULL,                      /* SpecialInfo                        */
  673.     HARMON3|DNARROW,           /* GadgetID                           */
  674.     NULL                       /* UserData                           */
  675. };
  676.  
  677. /*  Change sign gadget  */
  678.  
  679. struct Gadget plusminus4 =
  680. {
  681.     &dn4,266,167,              /* *NextGadget, LeftEdge, TopEdge     */
  682.     15,8,GADGHCOMP,            /* Width, Height, Flags               */
  683.     GADGIMMEDIATE,             /* Activation                         */
  684.     BOOLGADGET,(APTR)&plmi5,   /* GadgetType, GadgetRender           */
  685.     NULL,                      /* SelectRender                       */
  686.     NULL,0,                    /* *GadgetText, MutualExclude         */
  687.     NULL,                      /* SpecialInfo                        */
  688.     HARMON3|PLUSMINUS,         /* GadgetID                           */
  689.     NULL                       /* UserData                           */
  690. };
  691.  
  692. /*************************************/
  693. /*     Fifth amplitude gadgets       */
  694. /*************************************/
  695.  
  696. /*  Proportional gadget  */
  697.  
  698. struct PropInfo prop_info5 =
  699. {
  700.     AUTOKNOB|FREEVERT,  /* Flags                                  */
  701.     0xFFFF,0xFFFF,      /* HorizPot, VertPot                      */
  702.     0x0800,0x0800,      /* HorizBody, VertBody                    */
  703.     16,64,              /* CWidth,CHeight                         */
  704.     0x0800,0x0800,      /* HPotRes, VPotRes                       */
  705.     0,0                 /* LeftBorder, TopBorder                  */
  706. };
  707.  
  708. struct IntuiText protext5 =
  709. {
  710.     5, 2, JAM2,         /* FrontPen, BackPen, DrawMode            */
  711.     -20, 3,             /* LeftEdge, TopEdge                      */
  712.     NULL,"5:",          /* *ITextFont, *Itext                     */
  713.     NULL                /* *NextText                              */
  714. };
  715.  
  716. struct Gadget propor5 =
  717. {
  718.     &plusminus4,361,113,       /* *NextGadget, LeftEdge, TopEdge     */
  719.     14,69,GADGHCOMP|AUTOKNOB,  /* Width, Height, Flags               */
  720.     RELVERIFY|GADGIMMEDIATE,   /* Activation                         */
  721.     PROPGADGET,(APTR)&empty5,  /* GadgetType, GadgetRender           */
  722.     NULL,                      /* SelectRender                       */
  723.     (APTR)&protext5,0,         /* *GadgetText, MutualExclude         */
  724.     (APTR)&prop_info5,         /* SpecialInfo                        */
  725.     HARMON4|PROPOR,            /* GadgetID                           */
  726.     NULL                       /* UserData                           */
  727. };
  728.  
  729. /*   Up arrow gadget     */
  730.  
  731. struct Gadget up5 =
  732. {
  733.     &propor5,341,143,          /* *NextGadget, LeftEdge, TopEdge     */
  734.     16,6,GADGHCOMP,            /* Width, Height, Flags               */
  735.     GADGIMMEDIATE,             /* Activation                         */
  736.     BOOLGADGET,(APTR)&up_arr, /* GadgetType, GadgetRender           */
  737.     NULL,                      /* SelectRender                       */
  738.     NULL,0,                    /* *GadgetText, MutualExclude         */
  739.     NULL,                      /* SpecialInfo                        */
  740.     HARMON4|UPARROW,           /* GadgetID                           */
  741.     NULL                       /* UserData                           */
  742. };
  743.  
  744. /*   down arrow gadget  */
  745.  
  746. struct Gadget dn5 =
  747. {
  748.     &up5,340,152,               /* *NextGadget, LeftEdge, TopEdge     */
  749.     16,6,GADGHCOMP,            /* Width, Height, Flags               */
  750.     GADGIMMEDIATE,             /* Activation                         */
  751.     BOOLGADGET,(APTR)&dn_arr,  /* GadgetType, GadgetRender           */
  752.     NULL,                      /* SelectRender                       */
  753.     NULL,0,                    /* *GadgetText, MutualExclude         */
  754.     NULL,                      /* SpecialInfo                        */
  755.     HARMON4|DNARROW,           /* GadgetID                           */
  756.     NULL                       /* UserData                           */
  757. };
  758.  
  759. /*  Change sign gadget  */
  760.  
  761. struct Gadget plusminus5 =
  762. {
  763.     &dn5,340,167,              /* *NextGadget, LeftEdge, TopEdge     */
  764.     15,8,GADGHCOMP,            /* Width, Height, Flags               */
  765.     GADGIMMEDIATE,             /* Activation                         */
  766.     BOOLGADGET,(APTR)&plmi5,   /* GadgetType, GadgetRender           */
  767.     NULL,                      /* SelectRender                       */
  768.     NULL,0,                    /* *GadgetText, MutualExclude         */
  769.     NULL,                      /* SpecialInfo                        */
  770.     HARMON4|PLUSMINUS,         /* GadgetID                           */
  771.     NULL                       /* UserData                           */
  772. };
  773.  
  774. /*************************************/
  775. /*     Sixth amplitude gadgets       */
  776. /*************************************/
  777.  
  778. /*  Proportional gadget  */
  779.  
  780. struct PropInfo prop_info6 =
  781. {
  782.     AUTOKNOB|FREEVERT,  /* Flags                                  */
  783.     0xFFFF,0xFFFF,      /* HorizPot, VertPot                      */
  784.     0x0800,0x0800,      /* HorizBody, VertBody                    */
  785.     16,64,              /* CWidth,CHeight                         */
  786.     0x0800,0x0800,      /* HPotRes, VPotRes                       */
  787.     0,0                 /* LeftBorder, TopBorder                  */
  788. };
  789.  
  790. struct IntuiText protext6 =
  791. {
  792.     5, 2, JAM2,         /* FrontPen, BackPen, DrawMode            */
  793.     -20, 3,             /* LeftEdge, TopEdge                      */
  794.     NULL,"6:",          /* *ITextFont, *Itext                     */
  795.     NULL                /* *NextText                              */
  796. };
  797.  
  798. struct Gadget propor6 =
  799. {
  800.     &plusminus5,435,113,       /* *NextGadget, LeftEdge, TopEdge     */
  801.     14,69,GADGHCOMP|AUTOKNOB,  /* Width, Height, Flags               */
  802.     RELVERIFY|GADGIMMEDIATE,   /* Activation                         */
  803.     PROPGADGET,(APTR)&empty6,  /* GadgetType, GadgetRender           */
  804.     NULL,                      /* SelectRender                       */
  805.     (APTR)&protext6,0,         /* *GadgetText, MutualExclude         */
  806.     (APTR)&prop_info6,         /* SpecialInfo                        */
  807.     HARMON5|PROPOR,            /* GadgetID                           */
  808.     NULL                       /* UserData                           */
  809. };
  810.  
  811. /*   Up arrow gadget     */
  812.  
  813. struct Gadget up6 =
  814. {
  815.     &propor6,414,143,          /* *NextGadget, LeftEdge, TopEdge     */
  816.     16,6,GADGHCOMP,            /* Width, Height, Flags               */
  817.     GADGIMMEDIATE,             /* Activation                         */
  818.     BOOLGADGET,(APTR)&up_arr, /* GadgetType, GadgetRender           */
  819.     NULL,                      /* SelectRender                       */
  820.     NULL,0,                    /* *GadgetText, MutualExclude         */
  821.     NULL,                      /* SpecialInfo                        */
  822.     HARMON5|UPARROW,           /* GadgetID                           */
  823.     NULL                       /* UserData                           */
  824. };
  825.  
  826. /*   down arrow gadget  */
  827.  
  828. struct Gadget dn6 =
  829. {
  830.     &up6,414,152,               /* *NextGadget, LeftEdge, TopEdge     */
  831.     16,6,GADGHCOMP,            /* Width, Height, Flags               */
  832.     GADGIMMEDIATE,             /* Activation                         */
  833.     BOOLGADGET,(APTR)&dn_arr,  /* GadgetType, GadgetRender           */
  834.     NULL,                      /* SelectRender                       */
  835.     NULL,0,                    /* *GadgetText, MutualExclude         */
  836.     NULL,                      /* SpecialInfo                        */
  837.     HARMON5|DNARROW,           /* GadgetID                           */
  838.     NULL                       /* UserData                           */
  839. };
  840.  
  841. /*  Change sign gadget  */
  842.  
  843. struct Gadget plusminus6 =
  844. {
  845.     &dn6,414,167,              /* *NextGadget, LeftEdge, TopEdge     */
  846.     15,8,GADGHCOMP,            /* Width, Height, Flags               */
  847.     GADGIMMEDIATE,             /* Activation                         */
  848.     BOOLGADGET,(APTR)&plmi5,   /* GadgetType, GadgetRender           */
  849.     NULL,                      /* SelectRender                       */
  850.     NULL,0,                    /* *GadgetText, MutualExclude         */
  851.     NULL,                      /* SpecialInfo                        */
  852.     HARMON5|PLUSMINUS,         /* GadgetID                           */
  853.     NULL                       /* UserData                           */
  854. };
  855.  
  856. /*************************************/
  857. /*     Seventh amplitude gadgets     */
  858. /*************************************/
  859.  
  860. /*  Proportional gadget  */
  861.  
  862. struct PropInfo prop_info7 =
  863. {
  864.     AUTOKNOB|FREEVERT,  /* Flags                                  */
  865.     0xFFFF,0xFFFF,      /* HorizPot, VertPot                      */
  866.     0x0800,0x0800,      /* HorizBody, VertBody                    */
  867.     16,64,              /* CWidth,CHeight                         */
  868.     0x0800,0x0800,      /* HPotRes, VPotRes                       */
  869.     0,0                 /* LeftBorder, TopBorder                  */
  870. };
  871.  
  872. struct IntuiText protext7 =
  873. {
  874.     5, 2, JAM2,         /* FrontPen, BackPen, DrawMode            */
  875.     -20, 3,             /* LeftEdge, TopEdge                      */
  876.     NULL,"7:",          /* *ITextFont, *Itext                     */
  877.     NULL                /* *NextText                              */
  878. };
  879.  
  880. struct Gadget propor7 =
  881. {
  882.     &plusminus6,509,113,       /* *NextGadget, LeftEdge, TopEdge     */
  883.     14,69,GADGHCOMP|AUTOKNOB,  /* Width, Height, Flags               */
  884.     RELVERIFY|GADGIMMEDIATE,   /* Activation                         */
  885.     PROPGADGET,(APTR)&empty7,  /* GadgetType, GadgetRender           */
  886.     NULL,                      /* SelectRender                       */
  887.     (APTR)&protext7,0,         /* *GadgetText, MutualExclude         */
  888.     (APTR)&prop_info7,         /* SpecialInfo                        */
  889.     HARMON6|PROPOR,            /* GadgetID                           */
  890.     NULL                       /* UserData                           */
  891. };
  892.  
  893. /*   Up arrow gadget     */
  894.  
  895. struct Gadget up7 =
  896. {
  897.     &propor7,488,143,          /* *NextGadget, LeftEdge, TopEdge     */
  898.     16,6,GADGHCOMP,            /* Width, Height, Flags               */
  899.     GADGIMMEDIATE,             /* Activation                         */
  900.     BOOLGADGET,(APTR)&up_arr, /* GadgetType, GadgetRender           */
  901.     NULL,                      /* SelectRender                       */
  902.     NULL,0,                    /* *GadgetText, MutualExclude         */
  903.     NULL,                      /* SpecialInfo                        */
  904.     HARMON6|UPARROW,           /* GadgetID                           */
  905.     NULL                       /* UserData                           */
  906. };
  907.  
  908. /*   down arrow gadget  */
  909.  
  910. struct Gadget dn7 =
  911. {
  912.     &up7,488,152,               /* *NextGadget, LeftEdge, TopEdge     */
  913.     16,6,GADGHCOMP,            /* Width, Height, Flags               */
  914.     GADGIMMEDIATE,             /* Activation                         */
  915.     BOOLGADGET,(APTR)&dn_arr,  /* GadgetType, GadgetRender           */
  916.     NULL,                      /* SelectRender                       */
  917.     NULL,0,                    /* *GadgetText, MutualExclude         */
  918.     NULL,                      /* SpecialInfo                        */
  919.     HARMON6|DNARROW,           /* GadgetID                           */
  920.     NULL                       /* UserData                           */
  921. };
  922.  
  923. /*  Change sign gadget  */
  924.  
  925. struct Gadget plusminus7 =
  926. {
  927.     &dn7,488,167,              /* *NextGadget, LeftEdge, TopEdge     */
  928.     15,8,GADGHCOMP,            /* Width, Height, Flags               */
  929.     GADGIMMEDIATE,             /* Activation                         */
  930.     BOOLGADGET,(APTR)&plmi5,   /* GadgetType, GadgetRender           */
  931.     NULL,                      /* SelectRender                       */
  932.     NULL,0,                    /* *GadgetText, MutualExclude         */
  933.     NULL,                      /* SpecialInfo                        */
  934.     HARMON6|PLUSMINUS,         /* GadgetID                           */
  935.     NULL                       /* UserData                           */
  936. };
  937.  
  938. /*************************************/
  939. /*     Eighth amplitude gadgets      */
  940. /*************************************/
  941.  
  942. /*  Proportional gadget  */
  943.  
  944. struct PropInfo prop_info8 =
  945. {
  946.     AUTOKNOB|FREEVERT,  /* Flags                                  */
  947.     0xFFFF,0xFFFF,      /* HorizPot, VertPot                      */
  948.     0x0800,0x0800,      /* HorizBody, VertBody                    */
  949.     16,64,              /* CWidth,CHeight                         */
  950.     0x0800,0x0800,      /* HPotRes, VPotRes                       */
  951.     0,0                 /* LeftBorder, TopBorder                  */
  952. };
  953.  
  954. struct IntuiText protext8 =
  955. {
  956.     5, 2, JAM2,         /* FrontPen, BackPen, DrawMode            */
  957.     -20, 3,             /* LeftEdge, TopEdge                      */
  958.     NULL,"8:",          /* *ITextFont, *Itext                     */
  959.     NULL                /* *NextText                              */
  960. };
  961.  
  962. struct Gadget propor8 =
  963. {
  964.     &plusminus7,583,113,       /* *NextGadget, LeftEdge, TopEdge     */
  965.     14,69,GADGHCOMP|AUTOKNOB,  /* Width, Height, Flags               */
  966.     RELVERIFY|GADGIMMEDIATE,   /* Activation                         */
  967.     PROPGADGET,(APTR)&empty8,  /* GadgetType, GadgetRender           */
  968.     NULL,                      /* SelectRender                       */
  969.     (APTR)&protext8,0,         /* *GadgetText, MutualExclude         */
  970.     (APTR)&prop_info8,         /* SpecialInfo                        */
  971.     HARMON7|PROPOR,            /* GadgetID                           */
  972.     NULL                       /* UserData                           */
  973. };
  974.  
  975. /*   Up arrow gadget     */
  976.  
  977. struct Gadget up8 =
  978. {
  979.     &propor8,562,143,          /* *NextGadget, LeftEdge, TopEdge     */
  980.     16,6,GADGHCOMP,            /* Width, Height, Flags               */
  981.     GADGIMMEDIATE,             /* Activation                         */
  982.     BOOLGADGET,(APTR)&up_arr, /* GadgetType, GadgetRender           */
  983.     NULL,                      /* SelectRender                       */
  984.     NULL,0,                    /* *GadgetText, MutualExclude         */
  985.     NULL,                      /* SpecialInfo                        */
  986.     HARMON7|UPARROW,           /* GadgetID                           */
  987.     NULL                       /* UserData                           */
  988. };
  989.  
  990. /*   down arrow gadget  */
  991.  
  992. struct Gadget dn8 =
  993. {
  994.     &up8,562,152,               /* *NextGadget, LeftEdge, TopEdge     */
  995.     16,6,GADGHCOMP,            /* Width, Height, Flags               */
  996.     GADGIMMEDIATE,             /* Activation                         */
  997.     BOOLGADGET,(APTR)&dn_arr,  /* GadgetType, GadgetRender           */
  998.     NULL,                      /* SelectRender                       */
  999.     NULL,0,                    /* *GadgetText, MutualExclude         */
  1000.     NULL,                      /* SpecialInfo                        */
  1001.     HARMON7|DNARROW,           /* GadgetID                           */
  1002.     NULL                       /* UserData                           */
  1003. };
  1004.  
  1005. /*  Change sign gadget  */
  1006.  
  1007. struct Gadget plusminus8 =
  1008. {
  1009.     &dn8,562,167,              /* *NextGadget, LeftEdge, TopEdge     */
  1010.     15,8,GADGHCOMP,            /* Width, Height, Flags               */
  1011.     GADGIMMEDIATE,             /* Activation                         */
  1012.     BOOLGADGET,(APTR)&plmi5,   /* GadgetType, GadgetRender           */
  1013.     NULL,                      /* SelectRender                       */
  1014.     NULL,0,                    /* *GadgetText, MutualExclude         */
  1015.     NULL,                      /* SpecialInfo                        */
  1016.     HARMON7|PLUSMINUS,         /* GadgetID                           */
  1017.     NULL                       /* UserData                           */
  1018. };
  1019.  
  1020. struct Gadget *propadd[8]={&propor1,&propor2,&propor3,&propor4,
  1021.                        &propor5,&propor6,&propor7,&propor8};
  1022.  
  1023. /********************/
  1024. /*  Menu Structures */
  1025. /********************/
  1026.  
  1027.  
  1028. struct IntuiText stoptext = {
  1029.     0,1,JAM1,                  /* FrontPen, BackPen, DrawMode        */
  1030.     0,0,                       /* LeftEdge, TopEdge                  */
  1031.     NULL,"Stop",               /* ITextFont, *IText                  */
  1032.     NULL                       /* *NextText                          */
  1033. };
  1034.  
  1035. struct MenuItem stopgame = {
  1036.     NULL,                      /* *NextItem                          */
  1037.     0,20,80,10,                /* LeftEdge, TopEdge, Width, Height   */
  1038.     ITEMTEXT|ITEMENABLED|HIGHCOMP, /* Flags                          */
  1039.     NULL, (APTR)&stoptext,     /* MutualExclude, ItemFill            */
  1040.     NULL,NULL,                 /* Command, *SubItem                  */
  1041.     NULL                       /* NextSelect                         */
  1042. };
  1043.  
  1044. struct IntuiText hardtext = {
  1045.     0,1,JAM1,                  /* FrontPen, BackPen, DrawMode        */
  1046.     0,0,                       /* LeftEdge, TopEdge                  */
  1047.     NULL,"Start-Hard",         /* ITextFont, *IText                  */
  1048.     NULL                       /* *NextText                          */
  1049. };
  1050.  
  1051. struct MenuItem starthard = {
  1052.     &stopgame,                 /* *NextItem                          */
  1053.     0,10,80,10,                /* LeftEdge, TopEdge, Width, Height   */
  1054.     ITEMTEXT|ITEMENABLED|HIGHCOMP, /* Flags                          */
  1055.     NULL, (APTR)&hardtext,     /* MutualExclude, ItemFill            */
  1056.     NULL,NULL,                 /* Command, *SubItem                  */
  1057.     NULL                       /* NextSelect                         */
  1058. };
  1059.  
  1060. struct IntuiText easytext = {
  1061.     0,1,JAM1,                  /* FrontPen, BackPen, DrawMode        */
  1062.     0,0,                       /* LeftEdge, TopEdge                  */
  1063.     NULL,"Start-Easy",         /* ITextFont, *IText                  */
  1064.     NULL                       /* *NextText                          */
  1065. };
  1066.  
  1067. struct MenuItem starteasy = {
  1068.     &starthard,                 /* *NextItem                         */
  1069.     0,0,80,10,                 /* LeftEdge, TopEdge, Width, Height   */
  1070.     ITEMTEXT|ITEMENABLED|HIGHCOMP, /* Flags                          */
  1071.     NULL, (APTR)&easytext,     /* MutualExclude, ItemFill            */
  1072.     NULL,NULL,                 /* Command, *SubItem                  */
  1073.     NULL                       /* NextSelect                         */
  1074. };
  1075.  
  1076. struct Menu game = {
  1077.     NULL,                      /* *NextMenu                          */
  1078.     161,0,80,10,               /* LeftEdge, TopEdge, Width, Height  */
  1079.     MENUENABLED,               /* Flags                              */
  1080.     "Game",                    /* *MenuName                          */
  1081.     &starteasy                 /* First Item                         */
  1082. };
  1083.  
  1084. struct IntuiText squaretext = {
  1085.     0,1,JAM1,                  /* FrontPen, BackPen, DrawMode        */
  1086.     0,0,                       /* LeftEdge, TopEdge                  */
  1087.     NULL,"Square",             /* ITextFont, *IText                  */
  1088.     NULL                       /* *NextText                          */
  1089. };
  1090.  
  1091. struct MenuItem square = {
  1092.     NULL,                      /* *NextItem                          */
  1093.     0,30,80,10,                /* LeftEdge, TopEdge, Width, Height   */
  1094.     ITEMTEXT|ITEMENABLED|HIGHCOMP, /* Flags                          */
  1095.     NULL, (APTR)&squaretext,   /* MutualExclude, ItemFill            */
  1096.     NULL,NULL,                 /* Command, *SubItem                  */
  1097.     NULL                       /* NextSelect                         */
  1098. };
  1099.  
  1100. struct IntuiText sawtext = {
  1101.     0,1,JAM1,                  /* FrontPen, BackPen, DrawMode        */
  1102.     0,0,                       /* LeftEdge, TopEdge                  */
  1103.     NULL,"Sawtooth",           /* ITextFont, *IText                  */
  1104.     NULL                       /* *NextText                          */
  1105. };
  1106.  
  1107. struct MenuItem sawtooth = {
  1108.     &square,                   /* *NextItem                          */
  1109.     0,20,80,10,                /* LeftEdge, TopEdge, Width, Height   */
  1110.     ITEMTEXT|ITEMENABLED|HIGHCOMP, /* Flags                          */
  1111.     NULL, (APTR)&sawtext,      /* MutualExclude, ItemFill            */
  1112.     NULL,NULL,                 /* Command, *SubItem                  */
  1113.     NULL                       /* NextSelect                         */
  1114. };
  1115.  
  1116. struct IntuiText triangletext = {
  1117.     0,1,JAM1,                  /* FrontPen, BackPen, DrawMode        */
  1118.     0,0,                       /* LeftEdge, TopEdge                  */
  1119.     NULL,"Triangle",           /* ITextFont, *IText                  */
  1120.     NULL                       /* *NextText                          */
  1121. };
  1122.  
  1123. struct MenuItem triangle = {
  1124.     &sawtooth,                 /* *NextItem                          */
  1125.     0,10,80,10,                /* LeftEdge, TopEdge, Width, Height   */
  1126.     ITEMTEXT|ITEMENABLED|HIGHCOMP, /* Flags                          */
  1127.     NULL, (APTR)&triangletext, /* MutualExclude, ItemFill            */
  1128.     NULL,NULL,                 /* Command, *SubItem                  */
  1129.     NULL                       /* NextSelect                         */
  1130. };
  1131.  
  1132. struct IntuiText resettext = {
  1133.     0,1,JAM1,                  /* FrontPen, BackPen, DrawMode        */
  1134.     0,0,                       /* LeftEdge, TopEdge                  */
  1135.     NULL,"Reset",              /* ITextFont, *IText                  */
  1136.     NULL                       /* *NextText                          */
  1137. };
  1138.  
  1139. struct MenuItem resetwave = {
  1140.     &triangle,                 /* *NextItem                          */
  1141.     0,0,80,10,                 /* LeftEdge, TopEdge, Width, Height   */
  1142.     ITEMTEXT|ITEMENABLED|HIGHCOMP, /* Flags                          */
  1143.     NULL, (APTR)&resettext,    /* MutualExclude, ItemFill            */
  1144.     NULL,NULL,                 /* Command, *SubItem                  */
  1145.     NULL                       /* NextSelect                         */
  1146. };
  1147.  
  1148. struct Menu waves = {
  1149.     &game,                     /* *NextMenu                          */
  1150.     81,0,80,10,                /* LeftEdge, TopEdge, Width, Height  */
  1151.     MENUENABLED,               /* Flags                              */
  1152.     "Waveforms",               /* *MenuName                          */
  1153.     &resetwave                 /* First Item                         */
  1154. };
  1155.  
  1156. struct IntuiText quittext = {
  1157.     0,1,JAM1,                  /* FrontPen, BackPen, DrawMode        */
  1158.     0,0,                       /* LeftEdge, TopEdge                  */
  1159.     NULL,"Quit",               /* ITextFont, *IText                  */
  1160.     NULL                       /* *NextText                          */
  1161. };
  1162.  
  1163. struct MenuItem quit = {
  1164.     NULL,                      /* *NextItem                          */
  1165.     0,40,120,10,                /* LeftEdge, TopEdge, Width, Height   */
  1166.     ITEMTEXT|ITEMENABLED|HIGHCOMP, /* Flags                          */
  1167.     NULL, (APTR)&quittext,     /* MutualExclude, ItemFill            */
  1168.     NULL,NULL,                 /* Command, *SubItem                  */
  1169.     NULL                       /* NextSelect                         */
  1170. };
  1171.  
  1172. struct IntuiText fronttext = {
  1173.     0,1,JAM1,                  /* FrontPen, BackPen, DrawMode        */
  1174.     0,0,                       /* LeftEdge, TopEdge                  */
  1175.     NULL,"Screen to Front",    /* ITextFont, *IText                  */
  1176.     NULL                       /* *NextText                          */
  1177. };
  1178.  
  1179. struct MenuItem scfront = {
  1180.     &quit,                     /* *NextItem                          */
  1181.     0,30,120,10,               /* LeftEdge, TopEdge, Width, Height   */
  1182.     ITEMTEXT|ITEMENABLED|HIGHCOMP, /* Flags                          */
  1183.     NULL, (APTR)&fronttext,    /* MutualExclude, ItemFill            */
  1184.     NULL,NULL,                 /* Command, *SubItem                  */
  1185.     NULL                       /* NextSelect                         */
  1186. };
  1187.  
  1188. struct IntuiText backtext = {
  1189.     0,1,JAM1,                  /* FrontPen, BackPen, DrawMode        */
  1190.     0,0,                       /* LeftEdge, TopEdge                  */
  1191.     NULL,"Screen to Back",     /* ITextFont, *IText                  */
  1192.     NULL                       /* *NextText                          */
  1193. };
  1194.  
  1195. struct MenuItem scback = {
  1196.     &scfront,                  /* *NextItem                          */
  1197.     0,20,120,10,               /* LeftEdge, TopEdge, Width, Height   */
  1198.     ITEMTEXT|ITEMENABLED|HIGHCOMP, /* Flags                          */
  1199.     NULL, (APTR)&backtext,    /* MutualExclude, ItemFill            */
  1200.     NULL,NULL,                 /* Command, *SubItem                  */
  1201.     NULL                       /* NextSelect                         */
  1202. };
  1203.  
  1204. struct IntuiText expandtext = {
  1205.     0,1,JAM1,                  /* FrontPen, BackPen, DrawMode        */
  1206.     0,0,                       /* LeftEdge, TopEdge                  */
  1207.     NULL,"Full Scale",         /* ITextFont, *IText                  */
  1208.     NULL                       /* *NextText                          */
  1209. };
  1210.  
  1211. struct MenuItem expand = {
  1212.     &scback,                   /* *NextItem                          */
  1213.     0,10,120,10,               /* LeftEdge, TopEdge, Width, Height   */
  1214.     ITEMTEXT|ITEMENABLED|HIGHCOMP, /* Flags                          */
  1215.     NULL, (APTR)&expandtext,   /* MutualExclude, ItemFill            */
  1216.     NULL,NULL,                 /* Command, *SubItem                  */
  1217.     NULL                       /* NextSelect                         */
  1218. };
  1219.  
  1220. struct IntuiText abouttext = {
  1221.     0,1,JAM1,                  /* FrontPen, BackPen, DrawMode        */
  1222.     0,0,                       /* LeftEdge, TopEdge                  */
  1223.     NULL,"About",              /* ITextFont, *IText                  */
  1224.     NULL                       /* *NextText                          */
  1225. };
  1226.  
  1227. struct MenuItem about = {
  1228.     &expand,                   /* *NextItem                          */
  1229.     0,0,120,10,                /* LeftEdge, TopEdge, Width, Height   */
  1230.     ITEMTEXT|ITEMENABLED|HIGHCOMP, /* Flags                          */
  1231.     NULL, (APTR)&abouttext,    /* MutualExclude, ItemFill            */
  1232.     NULL,NULL,                 /* Command, *SubItem                  */
  1233.     NULL                       /* NextSelect                         */
  1234. };
  1235.  
  1236. struct Menu project = {
  1237.     &waves,                    /* *NextMenu                          */
  1238.     0,0,80,10,                 /* LeftEdge, TopEdge, Width, Height   */
  1239.     MENUENABLED,               /* Flags                              */
  1240.     "Project",                 /* *MenuName                          */
  1241.     &about                     /* First Item                         */
  1242. };
  1243.  
  1244. /****************************************/
  1245. /*     "about" requester structures     */
  1246. /****************************************/
  1247.  
  1248. struct IntuiText OK = {0,1,JAM2,5,4,NULL,"OK",NULL};
  1249.  
  1250. struct IntuiText About6 = {0,1,JAM2,8,80,NULL,
  1251.     "Click on either <OK> box to proceed",
  1252.     NULL};
  1253.     
  1254. struct IntuiText About5 = {0,1,JAM2,8,60,NULL,
  1255.     "Ames, IA, 50011, USA.      BITNET: MEYER@ALISUVAX",
  1256.     &About6};
  1257.     
  1258. struct IntuiText About4 = {0,1,JAM2,8,50,NULL,
  1259.     "W. T. Meyer, 12 Physics, Iowa State University,",
  1260.     &About5};
  1261.     
  1262. struct IntuiText About3 = {0,1,JAM2,8,30,NULL,
  1263.     "Comments and suggestions may be sent to:",
  1264.     &About4};
  1265.     
  1266. struct IntuiText About2 = {0,1,JAM2,8,20,NULL,
  1267.     "Copyright (c) 1990 by W. T. Meyer.",
  1268.     &About3};
  1269.     
  1270. struct IntuiText About1 = {0,1,JAM2,8,10,NULL,
  1271.     "WaveMaker is freely distributable for noncommercial use.",
  1272.     &About2};
  1273.     
  1274. /*************************************/
  1275. /*   "Answers" requester structures  */
  1276. /*************************************/
  1277.  
  1278. char Answers[80];
  1279.     
  1280. struct IntuiText Answer3 = {0,1,JAM2,8,30,NULL,
  1281.     "Click on either <OK> box to proceed",
  1282.     NULL};
  1283.     
  1284. struct IntuiText Answer2 = {0,1,JAM2,8,20,NULL,
  1285.     (APTR)&Answers,&Answer3};
  1286.     
  1287. struct IntuiText Answer1 = {0,1,JAM2,8,10,NULL,
  1288.     "The answers are:",&Answer2};
  1289.     
  1290. /************************************************************/
  1291. main()
  1292. /************************************************************/
  1293. {
  1294.     ULONG mclass;
  1295.     USHORT mcode,mqual,gadID,gadno,gadtyp,i;
  1296.     USHORT amptopot();
  1297.     unsigned seed;
  1298.     LONG pottoamp(),MakeWave();
  1299.     SHORT potsign,keyraw,keyup,keyrepeat;
  1300.     struct Gadget *mgadget;
  1301.     struct PropInfo *propinfo;
  1302.     VOID OpenLibs(),Cleanup(),MakeDisplay(),MakeSin(),MakePalette();
  1303.     VOID AmpsUpDate(),PropUpdate(),DrawBoxes(),DrawUser();
  1304.     VOID SoundOn(),SoundOff(),MenuSetup(),DoMenu(),OpenAudio();
  1305.     VOID Update(),InitArrays();
  1306.     
  1307. /*  Initialization  */
  1308.  
  1309.     OpenLibs();
  1310.     
  1311.     OpenAudio();
  1312.     
  1313.     seed = (unsigned)time(NULL);
  1314.     srand(seed);
  1315.     
  1316.     MakeSin();
  1317.     
  1318.     for (i=0;i<8;++i) amps[i]=0;
  1319.     
  1320.     InitArrays();
  1321.  
  1322.     MakeDisplay();
  1323.     
  1324.     SetMenuStrip(Window,&project);
  1325.     
  1326.   
  1327.  /*  Set up an IDCMP Read Loop  */
  1328.  
  1329.     for(;;) {
  1330.     Wait(1<<Window->UserPort->mp_SigBit);
  1331.  
  1332.     while((mesg=(struct IntuiMessage *)
  1333.        GetMsg(Window->UserPort))!=NULL)  /* Wait for IntuiMessage    */
  1334.     {
  1335.         mclass = mesg->Class;        /* Run through all of them  */
  1336.         mcode = mesg->Code;          /* Local copies of variables*/
  1337.         mqual = mesg->Qualifier;
  1338.         mgadget =(struct Gadget *)mesg->IAddress;
  1339.         gadID = mgadget->GadgetID;
  1340.                 switch(mclass)
  1341.         {
  1342.            case CLOSEWINDOW: 
  1343.            {
  1344.              Cleanup();
  1345.             Exit(TRUE);
  1346.             break;
  1347.            }
  1348.            case REFRESHWINDOW:
  1349.            {
  1350.             DrawBoxes();
  1351.             Update(0);
  1352.             break;
  1353.            }
  1354.            case MENUPICK:
  1355.            {
  1356.             DoMenu(mcode);
  1357.             break;
  1358.            }
  1359.            case GADGETDOWN:
  1360.            {
  1361.             gadno = gadID&0x7;
  1362.             gadtyp = gadID&0x38;
  1363.             switch(gadtyp)
  1364.             {
  1365.               case UPARROW:
  1366.                 if (amps[gadno]>=0) ++amps[gadno];
  1367.                 else --amps[gadno];
  1368.                 Update(gadno);
  1369.                 ModifyProp(propadd[gadno],Window,NULL,
  1370.                   FREEVERT|AUTOKNOB,0xFFFF,
  1371.                   amptopot(amps[gadno]),0x0800,0x0800);
  1372.                 break;
  1373.               case DNARROW:
  1374.                 if (amps[gadno]>=0) --amps[gadno];
  1375.                 else ++amps[gadno];
  1376.                 Update(gadno);
  1377.                 ModifyProp(propadd[gadno],Window,NULL,
  1378.                   FREEVERT|AUTOKNOB,0xFFFF,
  1379.                   amptopot(amps[gadno]),0x0800,0x0800);
  1380.                 break;
  1381.               case PLUSMINUS:
  1382.                 amps[gadno]=-amps[gadno];
  1383.                 Update(gadno);
  1384.                 break;
  1385.               case PROPOR:
  1386.                 break;
  1387.                   }
  1388.               break;
  1389.            }
  1390.            case GADGETUP:
  1391.            {
  1392.             gadno = gadID&0x7;
  1393.             gadtyp = gadID&0x38;
  1394.             switch(gadtyp)
  1395.             {
  1396.               case UPARROW:
  1397.                 break;
  1398.               case DNARROW:
  1399.                 break;
  1400.               case PLUSMINUS:
  1401.                 break;
  1402.               case PROPOR:
  1403.                 potsign=1;
  1404.                 if (amps[gadno]<0) potsign=-1;
  1405.                 propinfo=mgadget->SpecialInfo;
  1406.                 amps[gadno]=pottoamp(propinfo->VertPot,
  1407.                     potsign);
  1408.                 Update(gadno);
  1409.                 break;
  1410.               }
  1411.               break;
  1412.            }
  1413.            case RAWKEY:
  1414.                 keyrepeat=mqual&IEQUALIFIER_REPEAT;
  1415.             keyraw = mcode&0x7F;
  1416.             keyup = mcode&0x80;
  1417.             if (keyup==0&&!keyrepeat) 
  1418.                 SoundOn(keyraw,usersound);
  1419.             if (keyup!=0) SoundOff(keyraw);
  1420.             break;
  1421.         }
  1422.         ReplyMsg(mesg);              /* Give message back        */
  1423.     }
  1424.     }
  1425. }
  1426.  
  1427. /**************************************************************/     
  1428. VOID OpenLibs()
  1429.     
  1430. /* Open all required libraries */
  1431.  
  1432. {
  1433. /*  ==Open Intuition... */
  1434.  
  1435.        IntuitionBase = (struct IntuitionBase *)
  1436.               OpenLibrary("intuition.library",INTUITION_REV);
  1437.        if(IntuitionBase == NULL) 
  1438.       ErrExit(INTUITION_FAIL);
  1439.  
  1440. /*  ==Open Graphics...  */
  1441.         GfxBase = (struct GfxBase *)
  1442.           OpenLibrary("graphics.library",GRAPHICS_REV);
  1443.     if(GfxBase == NULL)
  1444.             ErrExit(GRAPHICS_FAIL);
  1445.  
  1446. }  
  1447.         
  1448. /*******************************************************************/
  1449. VOID Cleanup()
  1450. /* ======Close down the window, the screen, and the libraries====== */
  1451. {
  1452.     ClearMenuStrip(Window);
  1453.     CloseWindow(Window);  
  1454.       CloseScreen(Screen);
  1455.     FreeMem(refsound,516);
  1456.     FreeMem(usersound,516);
  1457.     CloseDevice(ioa);
  1458.     CloseLibrary(GfxBase);
  1459.       CloseLibrary(IntuitionBase);
  1460.       exit(NULL);
  1461. }
  1462.  
  1463. /******************************************************************/
  1464. VOID ErrExit(SHORT errno)
  1465.  
  1466. /*  This routine gets called if a fatal error occurs.  It ends    */
  1467. /*  the program gracefully by closing all of the resources opened */
  1468. /*  to that point.                                                */
  1469.  
  1470. {
  1471.     char *ErrMess[]={"Successful Completion\n",
  1472.              "Unable to open Intuition.library\n",
  1473.                  "Unable to open Graphics.library\n",
  1474.              "Unable to allocate port PN\n",
  1475.              "Unable to allocate port P0\n",
  1476.              "Unable to allocate audio memory\n",
  1477.              "Unable to open audio device\n",
  1478.              "Unable to allocate usersound\n",
  1479.              "Unable to allocate refsound\n",
  1480.              "Unable to open Screen\n",
  1481.              "Unable to open Window\n"};
  1482.     
  1483.     printf(ErrMess[errno]);    
  1484.     
  1485.     switch(errno)            /* Yes, the fall-through is deliberate */
  1486.     {
  1487.     case SUCCESS:
  1488.         ClearMenuStrip(Window);
  1489.         CloseWindow(Window);
  1490.     case WINDOW_FAIL:
  1491.         CloseScreen(Screen);
  1492.     case SCREEN_FAIL:
  1493.         FreeMem(refsound,516);
  1494.     case REFSOUND_FAIL:
  1495.         FreeMem(usersound,516);
  1496.     case USERSOUND_FAIL:
  1497.         CloseDevice(ioa);
  1498.     case AUDIOALLOC_FAIL:
  1499.     case AUDIO_FAIL:
  1500.     case PORTP0_FAIL:
  1501.     case PORTPN_FAIL:
  1502.         CloseLibrary(GfxBase);
  1503.     case GRAPHICS_FAIL:
  1504.         CloseLibrary(IntuitionBase);
  1505.     case INTUITION_FAIL:
  1506.         break;
  1507.     }
  1508.     Exit(FALSE);
  1509. }
  1510.  
  1511. /********************************************************************/
  1512. VOID Update(USHORT gadno)
  1513.  
  1514. /*  Update the amplitudes and screen when one amplitude has been changed */
  1515.  
  1516. {
  1517.     VOID AmpsUpdate(),DrawUser();
  1518.     LONG MakeWave();
  1519.     
  1520.     if (amps[gadno]>127) amps[gadno]=127;
  1521.     if (amps[gadno]<-127) amps[gadno]=-127;
  1522.     AmpsUpdate();
  1523.     maxuser=MakeWave(amps,waveform,usersound);
  1524.     DrawUser();
  1525. }
  1526.  
  1527. /*************************************************************/
  1528. VOID DoMenu(USHORT mcode)
  1529.  
  1530. /*  Does the right thing when a menu option is chosen */
  1531.  
  1532. {
  1533. #define PROJECT_MENU 0
  1534. #define WAVE_MENU    1
  1535. #define GAME_MENU    2
  1536.  
  1537. #define ABOUT        0
  1538. #define FULLSCALE    1
  1539. #define SCREENBACK   2
  1540. #define SCREENFRONT  3
  1541. #define QUIT         4
  1542.  
  1543. #define START_EASY   0
  1544. #define START_HARD   1
  1545. #define STOP         2
  1546.  
  1547. switch(MENUNUM(mcode))
  1548. {
  1549.     LONG peak;
  1550.     SHORT i,item,scale;
  1551.     LONG temp,AddWaves(),randamp(),checkval(),MakeWave();
  1552.     VOID AmpsUpdate(),PropUpdate(),AutoRequest(),
  1553.         DrawUser(),Cleanup(),rescale();
  1554.     static SHORT canned[4][8]={{  0,  0,  0,  0,  0,  0,  0,  0},
  1555.                                {108,  0,-12,  0,  4,  0, -2,  0},
  1556.                            { 74,-38, 24,-20, 14,-12, 10, -9},
  1557.                            {124,  0, 41,  0, 25,  0, 18,  0}};
  1558.  
  1559.                    
  1560.     
  1561.     case PROJECT_MENU:
  1562.         switch (ITEMNUM(mcode))
  1563.         {
  1564.             case ABOUT:
  1565.             {
  1566.                 AutoRequest(Window,&About1,&OK,&OK,
  1567.                    NULL,NULL,500,130);
  1568.                 break;
  1569.             }
  1570.             case FULLSCALE:
  1571.             {
  1572.                     if ((peak=checkval(maxuser,amps))!=0) 
  1573.                    rescale(peak,amps);
  1574.                 maxuser=AddWaves(amps,waveform,
  1575.                     usersound)>>15;
  1576.                 AmpsUpdate();
  1577.                 PropUpdate();
  1578.                 DrawUser();
  1579.                 break;
  1580.             }
  1581.             case SCREENBACK:
  1582.             {
  1583.                 ScreenToBack(Screen);
  1584.                 break;
  1585.             }
  1586.             case SCREENFRONT:
  1587.             {
  1588.                 ScreenToFront(Screen);
  1589.                 break;
  1590.             }
  1591.             case QUIT:
  1592.             {
  1593.                 Cleanup();
  1594.                 Exit(TRUE);
  1595.             }
  1596.         }
  1597.         break;
  1598.     case WAVE_MENU:
  1599.         item = ITEMNUM(mcode);
  1600.         for (i=0; i<8; ++i)
  1601.         {
  1602.             amps[i] = canned[item][i];
  1603.         }
  1604.         AmpsUpdate();
  1605.         PropUpdate();
  1606.         maxuser=MakeWave(amps,waveform,usersound);
  1607.         DrawUser();
  1608.         break;
  1609.     case GAME_MENU:
  1610.         switch (ITEMNUM(mcode))
  1611.         {
  1612.             case START_EASY:
  1613.                 gameon = YES;
  1614.                 for (i=0; i<4; i++)
  1615.                 {
  1616.                     refamps[i] = randamp();
  1617.                 }
  1618.                 for (i=4;i<8;i++) refamps[i]=0;
  1619.                 maxref=MakeWave(refamps,refform,refsound);
  1620.                     if (maxref==0) maxref=1;
  1621.                 scale=maxamp/maxref;
  1622.                 for (i=0;i<4;++i)
  1623.                 {
  1624.                     temp=refamps[i]*scale;
  1625.                     refamps[i]=temp>>7;
  1626.                 }
  1627.                 maxref=AddWaves(refamps,refform,
  1628.                     refsound)>>15;
  1629.                 for (i=0; i<513; ++i)
  1630.                 {
  1631.                     refwave[i][1]=((129-refform[i])*48)>>7;
  1632.                 }
  1633.                 DrawUser();
  1634.                 break;
  1635.             case START_HARD:
  1636.                 gameon = YES;
  1637.                 for (i=0; i<8; i++)
  1638.                 {
  1639.                     refamps[i] = randamp();
  1640.                 }
  1641.                 maxref=MakeWave(refamps,refform,refsound);
  1642.                     if (maxref==0) maxref=1;
  1643.                 scale=maxamp/maxref;
  1644.                 for (i=0;i<8;++i)
  1645.                 {
  1646.                     temp=refamps[i]*scale;
  1647.                     refamps[i]=temp>>7;
  1648.                 }
  1649.                 maxref=AddWaves(refamps,refform,
  1650.                     refsound)>>15;
  1651.                 for (i=0; i<513; ++i)
  1652.                 {
  1653.                     refwave[i][1]=((129-refform[i])*48)>>7;
  1654.                 }
  1655.                 DrawUser();
  1656.                 break;
  1657.             case STOP:
  1658.                 gameon = NO;
  1659.                 sprintf(Answers,
  1660.                  "%6d %6d %6d %6d %6d %6d %6d %6d",
  1661.                  refamps[0],refamps[1],refamps[2],
  1662.                  refamps[3],refamps[4],refamps[5],
  1663.                  refamps[6],refamps[7]);
  1664.                 AutoRequest(Window,&Answer1,&OK,&OK,
  1665.                    NULL,NULL,620,80);
  1666.                 DrawUser();
  1667.                 break;
  1668.         }
  1669.         break;
  1670. }
  1671. }
  1672.  
  1673. /*************************************************************/
  1674. VOID MakeDisplay()
  1675.  
  1676. /*  Opens the screen and window, and creates the initial display  */
  1677.  
  1678. {    
  1679.     VOID DrawBoxes();
  1680.         
  1681.     Screen = (struct Screen *)MakeScreen();
  1682.     if (Screen == NULL) ErrExit(SCREEN_FAIL);
  1683.     
  1684.     Window = (struct Window *)MakeWindow();
  1685.     if (Window == NULL) ErrExit(WINDOW_FAIL);
  1686.     
  1687.     MakePalette(Window);
  1688.     
  1689.     DrawBoxes();
  1690. }
  1691.  
  1692. /*************************************************************/
  1693. VOID DrawBoxes()
  1694.  
  1695. /*  Draws the waveform display area and the boxes around the */
  1696. /*  numerical display                                        */
  1697. {
  1698.     SHORT i;
  1699.     static SHORT boxx[8]={34,108,182,256,330,404,478,552};
  1700.     
  1701. /*  Draw waveform display area  */
  1702.     rport = Window->RPort;
  1703.     SetAPen(rport,5);
  1704.     RectFill(rport,40,14,601,109);
  1705.     SetAPen(rport,2);
  1706.     RectFill(rport,44,12,597,111);
  1707.     SetAPen(rport,1);
  1708.     RectFill(rport,64,14,577,109);
  1709.     SetAPen(rport,3);
  1710.     RectFill(rport,64,61,577,61);
  1711.  
  1712. /*  Draw boxes for digital display of amplitudes   */
  1713.     for (i=0;i<8;++i)
  1714.     {
  1715.         DrawBorder(rport,&brdi1,boxx[i],188);
  1716.         sprintf(textbuf,"%5d",amps[i]);
  1717.         PrintIText(rport,&textamp,boxx[i],188);
  1718.     }
  1719. }
  1720.  
  1721. /****************************************************************/
  1722. VOID InitArrays()    
  1723. /*  Initialize data arrays for waveform displays  */
  1724. {
  1725.         SHORT i;
  1726.     
  1727.     for (i=0;i<513;++i)
  1728.     {
  1729.         userwave[i][0]=refwave[i][0]=i;
  1730.         userwave[i][1]=refwave[i][1]=0;
  1731.     }
  1732. }
  1733.  
  1734. /***************************************************************/
  1735. VOID MakePalette(Window)
  1736.  
  1737. /*  Sets the color palette  */
  1738.  
  1739. {
  1740.     ViewPort = (struct ViewPort *)ViewPortAddress(Window);
  1741.  
  1742. /*  ==Set palette...  */
  1743.  
  1744.      SetRGB4(ViewPort, 0,  7,  4,  3);    /* Dark beige  */
  1745.     SetRGB4(ViewPort, 1, 15, 12,  9);    /* Light beige */
  1746.     SetRGB4(ViewPort, 2,  5,  1,  0);    /* Brown       */
  1747.     SetRGB4(ViewPort, 3,  4,  4,  4);    /* dark  gray  */
  1748.     SetRGB4(ViewPort, 4, 11,  0,  0);    /* Red         */
  1749.     SetRGB4(ViewPort, 5, 13, 10,  0);    /* Yellow      */
  1750.     SetRGB4(ViewPort, 6,  6,  8,  2);    /* Green       */
  1751.     SetRGB4(ViewPort, 7,  0,  0,  0);    /* Black       */    
  1752. }
  1753.  
  1754. /*****************************************************************/
  1755. MakeScreen()
  1756.  
  1757. {
  1758. /*  ==Open a custom screen...  */
  1759.  
  1760.        struct NewScreen NewScreen =
  1761.        {    0, 0, 640, 200,      /* LeftEdge, TopEdge, Width, Height */
  1762.         3, 0x00, 0x01,       /* Depth, DetailPen, BlockPen       */
  1763.         HIRES,CUSTOMSCREEN,  /* ViewModes, Type                  */
  1764.         NULL,"WaveScreen",NULL,/* Font, DefaultTitle, Gadgets    */
  1765.         NULL                 /* CustomBitMap                     */
  1766.     };
  1767.   
  1768.        return(OpenScreen(&NewScreen));
  1769. }
  1770.  
  1771. /******************************************************************/
  1772. MakeWindow()
  1773.  
  1774. /*  This function initializes the NewWindow structure and opens 
  1775.     the window */
  1776.  
  1777. {
  1778.     struct NewWindow NewWindow;
  1779.      ULONG flags;
  1780.     USHORT iflags;
  1781.     
  1782. /*  ==Open the window...  */
  1783.  
  1784.        flags=SMART_REFRESH|WINDOWSIZING|WINDOWDRAG|WINDOWCLOSE;
  1785.        iflags=CLOSEWINDOW|REFRESHWINDOW|GADGETDOWN|GADGETUP|RAWKEY|
  1786.         MENUPICK;
  1787.         NewWindow.LeftEdge=0;
  1788.         NewWindow.TopEdge=0;
  1789.         NewWindow.Width=640;
  1790.         NewWindow.Height=200;
  1791.         NewWindow.DetailPen=0x00;
  1792.         NewWindow.BlockPen=0x01;
  1793.         NewWindow.Flags=flags;
  1794.         NewWindow.IDCMPFlags=iflags;
  1795.         NewWindow.FirstGadget=&plusminus8;
  1796.         NewWindow.CheckMark=NULL;
  1797.        NewWindow.Title="WaveMaker 1.1";
  1798.          NewWindow.Screen=Screen;
  1799.         NewWindow.BitMap=NULL;
  1800.         NewWindow.MinWidth=16;
  1801.         NewWindow.MinHeight=16;
  1802.         NewWindow.MaxWidth=640;
  1803.         NewWindow.MaxHeight=200;
  1804.         NewWindow.Type=CUSTOMSCREEN;
  1805.     
  1806.         return(OpenWindow(&NewWindow));
  1807.     
  1808. }
  1809.  
  1810. /*********************************************************************/
  1811. VOID MakeSin()
  1812.  
  1813. /*  Initialize the sine wave arrays for all eight frequencies.        */
  1814. /*  This saves a lot of time later.                                   */
  1815.  
  1816. {
  1817.     SHORT i,j,k;
  1818.     FLOAT step;
  1819.     
  1820.     step = 6.283185/512.0;
  1821.     for (i=0; i<513; ++i) sinewave[0][i]=sin(i*step)*0x7FFF;
  1822.     for (j=1; j<8; ++j)
  1823.     {
  1824.         for (i=0; i<513; ++i)
  1825.         {
  1826.             k=((j+1)*i)%512;
  1827.             sinewave[j][i]=sinewave[0][k];
  1828.         }
  1829.     }
  1830. }
  1831.  
  1832. /****************************************************************/
  1833. VOID OpenAudio()
  1834.  
  1835. /*  Alloc and open the audio device and initialize the structures */
  1836.  
  1837. {
  1838.     char *portstring[]={"aud0","aud1","aud2","aud3","aud4"};
  1839.     SHORT i;
  1840.     static SHORT chanbits[4]={1,2,4,8};
  1841.     
  1842. /*  allocate memory for IOAudio structures   */
  1843.  
  1844.     ioa=(struct IOAudio *)AllocMem((NBR_IOA_STRUCTS*sizeof(*ioa)),
  1845.         MEMF_PUBLIC|MEMF_CLEAR);
  1846.     if (ioa==NULL) ErrExit(AUDIOALLOC_FAIL);
  1847.     
  1848. /*  set the IOAudio structure pointers  */
  1849.  
  1850.     finish = &ioa[5];
  1851.     audio = &ioa[0];
  1852.     
  1853. /* open the audio device   */
  1854.  
  1855.     ioa->ioa_Request.io_Message.mn_Node.ln_Pri=10;
  1856.     ioa->ioa_Data=&sunit;
  1857.     ioa->ioa_Length=(ULONG)sizeof(sunit);
  1858.     ioa->ioa_Request.io_Message.mn_ReplyPort=CreatePort("aud0",0);
  1859.     if (ioa->ioa_Request.io_Message.mn_ReplyPort==NULL)
  1860.          ErrExit(PORTP0_FAIL);
  1861.     if((OpenDevice(AUDIONAME,0,ioa,0))!=NULL) ErrExit(AUDIO_FAIL);
  1862.     
  1863. /*  set up the finish structure  */
  1864.  
  1865.     *finish = *ioa;
  1866.     finish->ioa_Request.io_Flags = IOF_QUICK;
  1867.     finish->ioa_Request.io_Command = ADCMD_FINISH;
  1868.     
  1869. /*  set up the audio channels and initialize them  */
  1870.  
  1871.     for (i=0; i<4; ++i)
  1872.     {
  1873.         audchan[i]=&ioa[i+1];
  1874.         *audchan[i]=*ioa;
  1875.         if ((audchan[i]->ioa_Request.io_Message.mn_ReplyPort =
  1876.           CreatePort(portstring[i],0))==NULL) ErrExit(PORTPN_FAIL);
  1877.         audchan[i]->ioa_Request.io_Command=CMD_WRITE;
  1878.         audchan[i]->ioa_Request.io_Flags=IOF_QUICK|ADIOF_PERVOL;
  1879.         audchan[i]->ioa_Cycles=0;
  1880.         audchan[i]->ioa_Length=128;
  1881.         audchan[i]->ioa_Request.io_Unit=chanbits[i];
  1882.     }
  1883.     if((usersound = (BYTE *)AllocMem(516, MEMF_CHIP))==0) 
  1884.         ErrExit(USERSOUND_FAIL);
  1885.     if((refsound = (BYTE *)AllocMem(516, MEMF_CHIP))==0)
  1886.         ErrExit(REFSOUND_FAIL);
  1887. }
  1888.         
  1889. /****************************************************************/
  1890. VOID AmpsUpdate()
  1891.  
  1892. /*  Update the numerical amplitude displays   */
  1893.  
  1894. {
  1895.     SHORT i;
  1896.     SHORT boxx[8]={34,108,182,256,330,404,478,552};
  1897.     
  1898.     for (i=0;i<8;i++)
  1899.     {
  1900.         sprintf(textbuf,"%5d",amps[i]);
  1901.         PrintIText(rport,&textamp,boxx[i],188);
  1902.     }
  1903. }
  1904.  
  1905. /****************************************************************/
  1906. VOID PropUpdate()
  1907.  
  1908. /*  Update the proportional gadgets after a rescaling  */
  1909.  
  1910. {
  1911.     USHORT temp;
  1912.     temp=amptopot(amps[7]);
  1913.     ModifyProp(&propor8,Window,NULL,FREEVERT|AUTOKNOB,0xFFFF,
  1914.         temp,0x0800,0x0800);
  1915.     temp=amptopot(amps[6]);
  1916.     ModifyProp(&propor7,Window,NULL,FREEVERT|AUTOKNOB,0xFFFF,
  1917.         temp,0x0800,0x0800);
  1918.     temp=amptopot(amps[5]);
  1919.     ModifyProp(&propor6,Window,NULL,FREEVERT|AUTOKNOB,0xFFFF,
  1920.         temp,0x0800,0x0800);
  1921.     temp=amptopot(amps[4]);
  1922.     ModifyProp(&propor5,Window,NULL,FREEVERT|AUTOKNOB,0xFFFF,
  1923.         temp,0x0800,0x0800);
  1924.     temp=amptopot(amps[3]);
  1925.     ModifyProp(&propor4,Window,NULL,FREEVERT|AUTOKNOB,0xFFFF,
  1926.         temp,0x0800,0x0800);
  1927.     temp=amptopot(amps[2]);
  1928.     ModifyProp(&propor3,Window,NULL,FREEVERT|AUTOKNOB,0xFFFF,
  1929.         temp,0x0800,0x0800);
  1930.     temp=amptopot(amps[1]);
  1931.     ModifyProp(&propor2,Window,NULL,FREEVERT|AUTOKNOB,0xFFFF,
  1932.         temp,0x0800,0x0800);
  1933.     temp=amptopot(amps[0]);
  1934.     ModifyProp(&propor1,Window,NULL,FREEVERT|AUTOKNOB,0xFFFF,
  1935.         temp,0x0800,0x0800);
  1936. }
  1937.  
  1938. /****************************************************************/
  1939. USHORT amptopot(amp)
  1940.  
  1941. /* Convert an amplitude to an integer to put in the proportional */
  1942. /* gadget's VertPot value.                                       */
  1943.  
  1944. LONG amp;
  1945. {
  1946.     USHORT temp;
  1947.     
  1948.     temp = (127-abs(amp))<<9;
  1949.     return(temp);
  1950. }
  1951.  
  1952. /****************************************************************/
  1953. LONG pottoamp(pot,potsign)
  1954.  
  1955. /* Converts a proportional gadget's VertPot value to an amplitude  */
  1956.  
  1957. USHORT pot;
  1958. SHORT potsign;
  1959. {
  1960.     LONG temp;
  1961.     temp = (127-(pot>>9))*potsign;
  1962.     return(temp);
  1963. }
  1964.  
  1965. /****************************************************************/
  1966. LONG AddWaves(LONG ampl[],BYTE wf[],UBYTE *ws)
  1967.  
  1968. /*  Create the compound waveform by adding the harmonics.  This      */
  1969. /*  routine is a likely candidate for future conversion to assembler */
  1970. /*  to speed things up.                                              */
  1971.  
  1972. {
  1973.     SHORT i,j;
  1974.     LONG wavebuff[513];
  1975.     LONG maxval,minval;
  1976.     
  1977.     for (j=0;j<513;++j) wavebuff[j]=ampl[0]*sinewave[0][j];
  1978.     for (i=1;i<8;++i)
  1979.     {
  1980.         for (j=0;j<513;++j)
  1981.         {
  1982.             wavebuff[j]=wavebuff[j]+ampl[i]*sinewave[i][j];
  1983.         }
  1984.     }
  1985.     maxval=minval=0;
  1986.     for (j=0;j<513;++j)
  1987.     {
  1988.          wf[j]=wavebuff[j]>>15;
  1989.          ws[j/4]=wf[j];
  1990.          if (wavebuff[j]>maxval) maxval=wavebuff[j];
  1991.          if (wavebuff[j]<minval) minval=wavebuff[j];
  1992.     }
  1993.     if (abs(minval)>maxval) maxval=abs(minval);
  1994.     return(maxval);
  1995. }
  1996.  
  1997. /*****************************************************************/
  1998. LONG MakeWave(LONG ampl[],BYTE wf[],UBYTE *ws)
  1999.  
  2000. /*  Makes the compound waveform (via AddWaves) and checks that it */
  2001. /*  is not off scale.  If it is, it rescales.                     */
  2002. {
  2003.     LONG peak;
  2004.     LONG maxnow;
  2005.     LONG AddWaves();
  2006.     LONG checkval();
  2007.     VOID rescale();
  2008.     
  2009.     maxnow=AddWaves(ampl,wf,ws)>>15;
  2010.     if ((peak=checkval(maxnow,ampl))>127)
  2011.     {
  2012.         rescale(peak,ampl);
  2013.         maxnow=AddWaves(ampl,wf,ws)>>15;
  2014.     }
  2015.     return(maxnow);
  2016. }
  2017.  
  2018. /******************************************************************/
  2019. LONG checkval(LONG maxval,LONG ampl[])
  2020.  
  2021. /*  Checks maxval, and all of the amps[i] to find the largest     */
  2022. /*  in absolute value.                                            */
  2023.  
  2024. {
  2025.     SHORT i;
  2026.     LONG temp;
  2027.     
  2028.     temp = maxval;
  2029.     for (i=0; i<8; ++i)
  2030.     {
  2031.         if (abs(ampl[i])>temp) temp=abs(ampl[i]);
  2032.     }
  2033.     return(temp);
  2034. }
  2035.  
  2036. /******************************************************************/
  2037. VOID rescale(LONG peak,LONG ampl[])
  2038.  
  2039. /*  rescale to make the amplitude a high as possible without having */
  2040. /*  any ampltiude or the compound wave exceed 127 in absolute value */
  2041. {
  2042.     extern LONG maxamp;
  2043.     SHORT scale,i;
  2044.     LONG temp;
  2045.     
  2046.     scale=maxamp/peak;
  2047.     for (i=0;i<8;++i)         /* Be careful not to lose bits */
  2048.     {
  2049.         temp=ampl[i]*scale;
  2050.         ampl[i]=temp>>7;
  2051.     }
  2052. }
  2053. /***********************************************************************/
  2054. VOID DrawUser()
  2055.  
  2056. /*  Draws the compound waveform in the display area.  */
  2057.  
  2058. {
  2059.     SHORT i;
  2060.     for (i=0;i<513;++i) userwave[i][1]=((129-waveform[i])*48)>>7;
  2061.     SetAPen(rport,1);
  2062.     RectFill(rport,64,14,577,109);
  2063.     SetAPen(rport,3);
  2064.     RectFill(rport,64,61,577,61);
  2065.     if (gameon) DrawBorder(rport,&RWave_brd5,0,0);
  2066.     DrawBorder(rport,&UWave_brd5,0,0);
  2067. }
  2068.  
  2069. /************************************************************/
  2070. VOID SoundOn(SHORT key,UBYTE *ws)
  2071.  
  2072. /*  Start a sound channel   */
  2073.  
  2074. {
  2075.     UWORD tone;
  2076.     UWORD periods[16]={452, 428, 404, 381, 359, 339, 320, 302,
  2077.                    285, 269, 254, 240, 226, 214, 202, 190};
  2078.     SHORT channo,FreeChan();
  2079.     
  2080.     switch (key)
  2081.     {
  2082.         case 0x31: {tone=periods[0]; break;}
  2083.         case 0x32: {tone=periods[1]; break;}
  2084.         case 0x22: {tone=periods[2]; break;}
  2085.         case 0x33: {tone=periods[3]; break;}
  2086.         case 0x23: {tone=periods[4]; break;}
  2087.         case 0x34: {tone=periods[5]; break;}
  2088.         case 0x35: {tone=periods[6]; break;}
  2089.         case 0x25: {tone=periods[7]; break;}
  2090.         case 0x36: {tone=periods[8]; break;}
  2091.         case 0x26: {tone=periods[9]; break;}
  2092.         case 0x37: {tone=periods[10]; break;}
  2093.         case 0x27: {tone=periods[11]; break;}
  2094.         case 0x38: {tone=periods[12]; break;}
  2095.         case 0x39: {tone=periods[13]; break;}
  2096.         case 0x29: {tone=periods[14]; break;}
  2097.         case 0x3A: {tone=periods[15]; break;}
  2098.         default: tone=0;
  2099.     }
  2100.     if (((channo = FreeChan())<4)&(key<64))
  2101.     {
  2102.         audchan[channo]->ioa_Period=tone;
  2103.         if(tone==0) audchan[channo]->ioa_Volume=0;
  2104.         else audchan[channo]->ioa_Volume=64;
  2105.         audchan[channo]->ioa_Data=(UBYTE *)ws;
  2106.         audiochan[key]=channo;
  2107.         WaitIO(audchan[channo]);
  2108.         BeginIO(audchan[channo]);
  2109.     }
  2110. }
  2111.  
  2112. /************************************************************/
  2113. VOID SoundOff(SHORT key)
  2114.  
  2115. /*  Stop a sound channel  */
  2116.  
  2117. {
  2118.     SHORT channo;
  2119.     static SHORT chanbits[4]={1,2,4,8};
  2120.     
  2121.     channo = audiochan[key];
  2122.     audiochan[key]=-1;
  2123.     if ((channo>=0)&(key<64))
  2124.     {
  2125.         finish->ioa_Request.io_Unit=chanbits[channo];
  2126.         BeginIO(finish);
  2127.         WaitIO(audchan[channo]);
  2128.         waiting[channo]=NO;
  2129.     }
  2130. }
  2131.  
  2132. /************************************************************/
  2133. LONG randamp()
  2134.  
  2135. /*  Picks a random amplitude (for the game mode)  */
  2136.  
  2137. {
  2138.     LONG temp;
  2139.     
  2140.     temp=(rand()&0xFF)-127;
  2141.     if (temp==128) temp=127;
  2142.     return(temp);
  2143. }
  2144.  
  2145. /************************************************************/
  2146. SHORT FreeChan()
  2147.  
  2148. /*  Finds the first unused audio channel */
  2149. {
  2150.     SHORT i;
  2151.     
  2152.     i=0;
  2153.     while ((waiting[i]==YES)&&(i<4)) i++;
  2154.     waiting[i]=YES;
  2155.     return(i);
  2156. }
  2157.